* mail/sendmail.el (mail-bury): Call return action with the right Rmail buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e15c1222effa1af96be7ffcc5a604659e848c7f4..8bac8350cbe10439c3d6c2160b7f6b24bd76cfa8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-16  Chong Yidong  <cyd@gnu.org>
+
+       * mail/sendmail.el (mail-bury): Call return action with the right
+       Rmail buffer (Bug#11242).
+
 2012-04-15  Chong Yidong  <cyd@gnu.org>
 
        * server.el (server-process-filter): Handle corner case where both

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 933eaef8119cf81e18b636091cb99616b55d7758..c4647d7893ecbbf499a30b05cc873900cbeeb933 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -864,7 +864,7 @@ Prefix arg means don't delete this window."
     (unless return-action
       (dolist (buffer (buffer-list))
        (if (eq (buffer-local-value 'major-mode buffer) 'rmail-mode)
-           (setq return-action `(rmail-mail-return ,newbuf)))))
+           (setq return-action `(rmail-mail-return ,buffer)))))
     (if (and (null arg) return-action)
        (apply (car return-action) (cdr return-action))
       (switch-to-buffer newbuf))))